home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ MS Money 1.xpl < prev    next >
Text File  |  2000-11-11  |  2KB  |  64 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="3"
  3. "DATA 1"="Programs (*.exe)|*.EXE"
  4. "COUNT"="3"
  5. "UIPATH"="Program Options\Other Programs\MS Money"
  6. "NAME"="Calculator"
  7. "VERSION"="3.05"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Calc for 99"
  10. "TEXT 2"="Calc for 2000"
  11. "TEXT 3"="Calc for 2001"
  12. "DESCRIPTION 1"="This option will allow you to change the program that is launched from Microsoft Money when you click 'Tools, Calculator' in it."
  13. "DESCRIPTION 2"="You might wish to change this to Excel.exe if you have Microsoft Excel which can handle many more mathematical functions than Windows' Calculator program can."
  14. "DESCRIPTION 3"="The default program is Calc.exe, which is Windows Calculator."
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"=" "
  19. "COMMENT 2"="Thanks to CptSiskoX for his help!"
  20.  
  21.  
  22. sPC="HKCU\Software\Microsoft\Money\"
  23. sV1="HKCU\Software\Microsoft\Money\7.0\Calculator"
  24. sV2="HKCU\Software\Microsoft\Money\8.0\Calculator"
  25. sV3="HKCU\Software\Microsoft\Money\9.0\Calculator"
  26.  
  27. Sub Plugin_Initialize 
  28.  If RegPathExists(sPC) then
  29.  
  30.     s=RegReadValue(sV1)
  31.     SetUiElement 1,s
  32.  
  33.     s=RegReadValue(sV2)
  34.     SetUiElement 2,s
  35.  
  36.     s=RegReadValue(sV3)
  37.     SetUiElement 3,s
  38.  
  39.  else
  40.     Call Disable()
  41.  end if
  42. End Sub
  43.  
  44. Sub Plugin_CheckData(ElementIndex)
  45. End Sub
  46.  
  47. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  48.  s=GetUIElement(1)
  49.  Call RegWriteValue(sV1,s,1)
  50.  
  51.  s=GetUIElement(2)
  52.  Call RegWriteValue(sV2,s,1)
  53.  
  54.  s=GetUIElement(3)
  55.  Call RegWriteValue(sV3,s,1)
  56.  
  57. End Sub
  58.  
  59. Sub Plugin_Terminate 
  60. End Sub
  61.  
  62.  
  63.  
  64.